home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / PowerMacOberon 1.2 / System / Kepler2.Sym < prev    next >
Encoding:
Text File  |  1994-09-15  |  2.0 KB  |  7 lines  |  [TEXT/.Ob4]
  1. ˜¬ÑΔ∂Kepler2FractionÜõ¬∂KeplerGraphs |ObjectDesc
  2. Object¸{selfÇ„„‡KeplerPortsPort˚{P Draw
  3. ¸{selfıñ≥Filesreseof tRider˚{R Read
  4. ¸{self˚{R WritexyrefcntselStar next xStarDesc
  5. ¸{self˚{P Draw
  6. ¸{self˚{R Read
  7. ¸{self˚{R WriteConstellationc lPlanetDesc
  8. Planet¸{self Calc
  9. ¸{self˚{P Draw
  10. ¸{self˚{R Read
  11. ¸{self˚{R Writecntdn |FractionDesc
  12. ¸{self Calc
  13. ¸{self˚{R Read
  14. ¸{self˚{R WriteOffsetdxdy xOffsetDesc
  15. ¸{self Calc
  16. ¸{self˚{R Read
  17. ¸{self˚{R     WriteXY tXYDesc
  18. ¸{self 
  19. Calc
  20.  NewFractions
  21.  NewOffset
  22.  NewXYܵàflDisplayFramedscnextX
  23. Y WH
  24. ¸{f x  FrameMsg ˚{msg     !Handler!handle t""FrameDescx0y0scale ext "$|## #PortDesc
  25. ¸{P˚{x#CX
  26. ¸{P˚{y#CY
  27. ¸{P˚{X#Cx
  28. ¸{P˚{Y#Cy
  29. ¸{P˚{x˙{y˘{r¯{col˜{mode #DrawCircle
  30. ¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode #DrawEllipse
  31. ¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode #DrawLine
  32. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode #DrawRect
  33. ¸{P˚{x˙{y $˘{sêØâflFonts%Font%˜{fontˆ{colı{mode #    DrawString
  34. ¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode #    
  35. FillCircle
  36. ¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode #
  37. FillQuad
  38. ¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode # FillRect#nofpts
  39. &pnext t'''ConsDesc
  40. ¸{self˚{R 'Read
  41. ¸{self'State
  42. ¸{self˚{R '    Write'"
  43.  (Name(name height"minX$maxX&minY(maxY)Font),raster0 4|**FontDesc%* |++Bytes)+